home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 June / EnigmA AMIGA RUN 19 (1997)(G.R. Edizioni)(IT)[!][issue 1997-06][EAR-CD III].iso / shape_files / macprint < prev    next >
Text File  |  1997-04-30  |  943b  |  36 lines
  1. ; Little CLI script used to send a file from a given Mac
  2. ; directory to the parallel port.
  3. ;
  4. ; $VER: MacPrint 1.0 (30.4.97)
  5.  
  6. FailAt 21
  7.  
  8. ; Please change these settings according to your needs.
  9. ; You should have to change the MAC mountlist path and
  10. ; the default directory where PostScript files would go.
  11.  
  12. Set MacMountList  "DEVS:DOSDrivers/MAC"
  13. Set DefaultMacDir "MAC:ToPrinter"
  14.  
  15. ;------ STARTUP ----------------------------------------
  16.  
  17. ; First, we mount the MAC: device if it doesn't
  18. ; exists yet.
  19.  
  20. C:Assign >NIL: MAC: EXISTS
  21. If WARN                 ; "MAC:" doesn't exist yet.
  22.    Mount >NIL: $MacMountList
  23.    If FAIL              ; Abort if we can't find the
  24.       Quit 20           ; mountlist...
  25.    Endif
  26. Endif
  27.  
  28. ; Now, pop-up the file requester.
  29.  
  30. C:RequestFile >ENV:File $DefaultMacDir TITLE "Select a file" POSITIVE "Print"
  31. If NOT WARN             ; The user has selected a file
  32.    C:Copy $File TO PAR: BUFFER 16384
  33. Endif
  34. UnsetEnv File
  35.  
  36.